function [discount,beca,stipend] = u41_2012(math,lang,private,demrecode,price,ref)
%% Universidad Andres Bello
lm=(math+lang)/2;
discount=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca Complementaria
beca=(price-ref)*((lm>=475).*(private==0));

%Beca Vocaci'on de Maestro (NO BVP)
if (demrecode==41036 || demrecode==41081 || demrecode==41113 || demrecode==41035 || demrecode==41080 || demrecode==41112 || demrecode==41034 || demrecode==41037 || demrecode==41114 || demrecode==41082 || demrecode==41041 || demrecode==41116 || demrecode==41086 || demrecode==41042 || demrecode==41087 || demrecode==41117)
  discount=(lm>=600);
  stipend=(lm>=600)*1000000+(lm>=700)*800000;
end
end
